{shared{
     type t = unit
   }}
			      

{client{

     let init () =
       Eliom_lib.alert "C'est pas encore prêt !"
		       
   }}
  
let make init_fct =
  let open Eliom_content.Html5 in
  let texte = F.pcdata "C'est pas encore prêt, comme on vous l'a dit." in
  let () = init_fct () in
  D.div ~a:[D.a_class ["webclient"]] [texte]
